home *** CD-ROM | disk | FTP | other *** search
/ Shirley Barber's Fairies: Create, Paint & Play / Fairies.iso / pc / Files / Install.dxr / Internal_9_Rollover Member Change.ls < prev    next >
Encoding:
Text File  |  2003-11-06  |  1.4 KB  |  39 lines
  1. property spriteNum, mySprite, mySound, myPlayed, mySoundEnabled, myStandardMember, myCursor, mySoundChannel, mySoundVolume, myRollovermember
  2. global HeadDirection
  3.  
  4. on beginSprite me
  5.   mySprite = sprite(me.spriteNum)
  6.   myStandardMember = mySprite.member
  7. end
  8.  
  9. on mouseEnter me
  10.   cursor(myCursor)
  11.   myPlayed = 1
  12.   mySprite.member = myRollovermember
  13.   if mySoundEnabled then
  14.     put mySoundChannel, mySound
  15.     puppetSound(mySoundChannel, mySound)
  16.   end if
  17. end
  18.  
  19. on mouseLeave me
  20.   cursor(-1)
  21.   mySprite.member = myStandardMember
  22. end
  23.  
  24. on getPropertyDescriptionList me
  25.   if the currentSpriteNum = 0 then
  26.     exit
  27.   end if
  28.   theMember = sprite(the currentSpriteNum).member
  29.   theMemberNumber = theMember.number
  30.   vPDList = [:]
  31.   setaProp(vPDList, #myRollovermember, [#comment: "Display which member on rollover?", #format: #graphic, #default: member(theMemberNumber + 1)])
  32.   setaProp(vPDList, #mySound, [#comment: "Sound to play when Rollover", #format: #sound, #default: EMPTY])
  33.   setaProp(vPDList, #mySoundChannel, [#comment: "Sound channel to play in", #format: #integer, #default: 1])
  34.   setaProp(vPDList, #mySoundVolume, [#comment: "Sound volume", #format: #integer, #default: 130])
  35.   setaProp(vPDList, #mySoundEnabled, [#comment: "Click to enable Sound", #format: #boolean, #default: 1])
  36.   setaProp(vPDList, #myCursor, [#comment: "Select Mouse cursor for rollover", #format: #cursor, #default: "Finger"])
  37.   return vPDList
  38. end
  39.